with Util; use Util;

package body Categories is
    function Get_Categorie_Verre(C : Ptr_Categorie) return Categorie_Verre is
    begin
        return C.Cat;
    end Get_Categorie_Verre;

    function Get_Categorie_Verre(C : Categorie) return Categorie_Verre is
    begin
        return C.Cat;
    end Get_Categorie_Verre;
 
    function Get_Dim_Piece_Mini(C : Ptr_Categorie) return Dimension is
    begin
        return C.Dim_Piece_Mini;
    end Get_Dim_Piece_Mini;
        
    function Get_Taille(C: Ptr_Categorie) return Dimension is
    begin
        return C.Taille_Plaque;
    end Get_Taille;

    function Creer(C : Categorie_Verre;
                   Dim_Piece_Mini : Dimension;
                   Taille_Plaque : Dimension) return Ptr_Categorie is
    begin
        return new Categorie'(C, Dim_Piece_Mini, Taille_Plaque);
    end Creer;

	function ">" (A,B : Categorie) return Boolean is
	begin
		return (A.Cat > B.Cat);
	end ">";
	
	function ">" (A,B : Ptr_Categorie) return Boolean is
	begin
		return (A.all > B.all);
	end ">";
end Categories;